home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 47
/
047.d81
/
harneds art hote
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
4KB
|
127 lines
1 ifx>.then10
2 poke53280,.:poke53281,.
3 print"[147]"
4 print" [215]elcome to [200]arned's [193]rt [200]otel..."
5 :
8 poke55,120:poke56,55:clr
10 ifx=0thenx=1:load"unpacker",8,1
20 ifx=1thenx=2:load"bload.o",8,1
25 ifx=2thenx=3:load"copymem.o",8,1
30 :
40 bl=828:unpack=51456:hgr=51459
45 cm=14200
50 :
55 np=12:dim t$(np),a$(np),r$(np),c(np)
56 forx=1tonp:readt$(x),a$(x),r$(x),c(x)
58 ifa$(x)="*"thena$(x)=a$(x-1)
59 next
60 gosub 50060: rem title screen
70 forx=1tonp:gosub60000
80 print"[154]"
82 printspc(19-len(t$(x))/2)""t$(x)"[146]"
84 print""spc(19-len(a$(x))/2)""a$(x)"[146]"
90 sysbl,16384,r$(x)
92 :
94 ifpeek(198)<>0thengeta$:poke198,0:ifa$="q"ora$="[209]"thengosub10000
95 ifright$(r$(x),3)="pic"then1000
96 poke249,224:poke250,204
98 poke251,0:poke252,64
99 poke253,0:poke254,0:print"[147]";:sysunpack:syshgr:poke53280,c(x)
100 ag=3.34
110 poke198,.:wait198,1
112 geta$:ifa$=" "ora$=" "thenpoke53280,(peek(53280)and15)+1
115 ifa$<>chr$(13)then110
120 syshgr:print"[147]":poke198,0:next x
130 goto70
140 :
1000 ag=3.34:poke249,224:poke250,204
1010 poke251,.:poke252,64
1020 poke253,.:poke254,.:print"[147]"
1030 sys cm,24576-8192,57344,8000
1040 sys cm,32576-8192,52224,1000
1050 sys cm,33576-8192,55296,1000
1055 poke53281,peek(34576-8192)
1060 sys hgr:poke53280,c(x):goto100
10000 rem a key was pressed
10005 poke53281,1:poke53280,5
10010 print"[147][144] [193]re you sure you want to quit [[217]/[206]]?"
10020 poke198,0:wait198,1:getag$
10030 ifag$="y"orag$="[217]"then30000
10040 return
30000 rem quit
30010 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
30020 ifer<>63thenprint"[147]":end
30030 load"hello connect",8
50000 rem data <title>,<author>,<real>
50010 data "[212]he [203]eep","[215]alt [200]arned",keep.shp,10
50012 data "[208]lanter",*,planter.shp,13
50014 data "[195]reek",*,creek.shp,7
50016 data "[211]pace [207]re",*,spaceore.shp,2
50020 data "[193]ircav",*,aircav.shp,10
50022 data "[200]ound",*,hound.shp,7
50026 data "[211]ea",*,sea.shp,3
50030 data "[196]ock",*,dock.pic,6
50034 data "[208]andas",*,pandas.shp,13
50040 data "[195]lassic",*,classic.shp,6
50050 data "[193]rtist",*,artist.shp,10
50055 data "[211]now",*,snow.shp,14
50060 rem title screen
50065 print"[147]":poke53281,1:poke53280,1
50072 print" [176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
50082 print" [221][204]oadstar [208]resents[221][152] "
50092 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
50102 print" "
50112 print
50122 print" [159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
50132 print" [221] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][159] [221][152] "
50142 print" [159][221] [221][200]arned's [193]rt [200]otel[221][154] [159] [221][152] "
50152 print" [159][221] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][154] [159] [221][152] "
50162 print" [159][221] [154] [159] [221][152] "
50172 print" [159][221] [221][152][160]"
50182 print" [159][221] [211]lide [211]how [208]resenter written [221][152][160]"
50192 print" [159][221] by [193]lan [199]ardner [221][152][160]"
50202 print" [159][221] ([195]) 1987 [221][152][160]"
50204 print" [159][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152][160]"
50212 print" "
50222 print
50232 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
50242 print" [221] [193]ll pictures created by [221][152] "
50252 print" [221] [215]alt [200]arned [221][152] "
50272 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
50282 print" "
50292 :
50302 print" [ Press any key to start the show[160]]";
50312 print"";
50314 poke198,0:wait198,1:poke198,0
50316 poke53281,5:return
59990 :
60000 :
60001 poke53281,1:poke53280,5
60005 print"[147][146] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
60010 print" [221][204]oadstar is proud to present:[221][152] "
60020 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
60030 print" "
60040 print
60050 print" [150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
60060 print" [221] [221][152] "
60070 print" [150][221] [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150] [221][152] "
60080 print" [150][221] [154][221] [221] [150] [221][152] "
60090 print" [150][221] [154][221] created by [221] [150] [221][152] [146][160]"
60100 print" [150][221] [154][221] [221] [150] [221][152] [146] [160]";
60110 print" [150][221] [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150] [221][152] "
60120 print" [150][221] [150] [221][152] "
60130 print" [150][221] [221][152] "
60140 print" [150][221] [221][152] "
60150 print" [150][221] [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150] [221][152] [146][160]"
60160 print" [150][221] [154][221] [195]oming soon to a computer[221] [150] [221][152] [146][160]"
60170 print" [150][221] [154][221] near you. [221] [150] [221][152] [146][160]"
60180 print" [150][221] [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150] [221][152] [146][160]"
60190 print" [150][221] [150] [221][152] [146][160]"
60200 print" [150][221] [221][152] "
60210 print" [150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
60220 print" "
60230 print
60240 print" [ Press 'Q' to exit ]";
60250 print"";
60260 return